home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1986 February / 1986-02.d64 / snapshot demo (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  769b  |  25 lines
  1. 100 poke56,146:clr:sc=1024:cm=54272:xt=0:yt=0:x=0:y=0:r=24:c=39:dimna$(31)
  2. 110 snapshot=51000:poke53280,11:poke53281,12:gosub240
  3. 120 print tab(7)"set up and copy screens":fori=0to1200:next
  4. 130 gosub240:printtab(9)"snapshot demonstration"
  5. 140 syssnapshot,d,*:rem erase old screens
  6. 150 fori= 0 to 31:x=i:y=0:gosub250
  7. 160 x=x-1:y=y+1:if x>=0 then gosub250:goto160
  8. 170 na$(i)=str$(i):na$(i)=right$(na$(i),len(na$(i))-1):n$=na$(i)
  9. 180 syssnapshot,c,n$:next:rem copy screen
  10. 190 gosub240:print tab(8)"snapshot prints screens"
  11. 200 print:print:print tab(10)"press (stop) to end":fori=0to3000:next
  12. 210 fori=0to31:n$=na$(i):syssnapshot,p,n$:next
  13. 220 fori=31to0step-1:n$=na$(i):syssnapshot,p,n$:next
  14. 230 goto210
  15. 240 print"[147]":fori=0to9:print:next:return
  16. 250 if y>24 then300
  17. 260 xt=x:yt=y:ch=78:gosub310
  18. 270 xt=c-x:ch=77:gosub310
  19. 280 yt=r-y:ch=78:gosub310
  20. 290 xt=x:ch=77:gosub310
  21. 300 return
  22. 310 p=40*yt+xt+sc:ifpeek(p)=77orpeek(p)=78thench=86
  23. 320 pokep,ch:pokep+cm,0
  24. 330 return
  25.